home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / boxfill.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  160 b   |  11 lines
  1. Colors=4
  2. SCREEN 1,640,200,Colors,2
  3. WINDOW 2,"Boxes",,15,1
  4. FOR x=1 TO 7
  5. PALETTE x,RND,RND,RND
  6. NEXT x
  7. CLS
  8. LLoop:
  9. LINE -(617*RND,184*RND),Colors*RND,bf
  10. GOTO LLoop
  11.